home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd1.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / soubory pro pcw 10 - æikovn¡ pomocn¡ci pro vaçe Windows / skripty / delx.bat < prev    next >
DOS Batch File  |  2000-08-18  |  2KB  |  53 lines
  1. @echo off
  2. if exist c:\temp.bat del c:\temp.bat
  3. if (%1)==() goto Warnung
  4.  
  5. echo Set MyShell=wscript.CreateObject("Wscript.Shell")  > %temp%\delsub.vbs
  6. echo Set MyFiles = CreateObject("Scripting.FileSystemObject") >> %temp%\delsub.vbs 
  7. echo Datei="c:\temp.bat"  >> %temp%\delsub.vbs
  8.  
  9. echo Set f = MyFiles.GetFile(Datei)  >> %temp%\delsub.vbs
  10. echo If f.size=0 then Wscript.quit   >> %temp%\delsub.vbs
  11.  
  12. echo Set f = MyFiles.OpenTextFile(Datei, 1)  >> %temp%\delsub.vbs
  13. echo Text = f.ReadAll  >> %temp%\delsub.vbs
  14. echo Set f = MyFiles.OpenTextFile(Datei, 2, True)  >> %temp%\delsub.vbs
  15. echo f.Write Replace(Text, "C:\", "DELTREE /y " & chr(34) & "C:\",1,-1,1) >> %temp%\delsub.vbs
  16. echo f.close >> %temp%\delsub.vbs
  17.  
  18. echo Set f = MyFiles.OpenTextFile(Datei, 1)  >> %temp%\delsub.vbs
  19. echo Text = f.ReadAll  >> %temp%\delsub.vbs
  20. echo Set f = MyFiles.OpenTextFile(Datei, 2, True)  >> %temp%\delsub.vbs
  21. echo f.Write Replace(Text, "D:\", "DELTREE /y " & chr(34) & "D:\",1,-1,1) >> %temp%\delsub.vbs
  22. echo f.close >> %temp%\delsub.vbs
  23.  
  24. echo Set f = MyFiles.OpenTextFile(Datei, 1)  >> %temp%\delsub.vbs
  25. echo Text = f.ReadAll  >> %temp%\delsub.vbs
  26. echo Set f = MyFiles.OpenTextFile(Datei, 2, True)  >> %temp%\delsub.vbs
  27. echo f.Write Replace(Text, "E:\", "DELTREE /y " & chr(34) & "E:\",1,-1,1) >> %temp%\delsub.vbs
  28. echo f.close >> %temp%\delsub.vbs
  29.  
  30. REM echo Set f = MyFiles.OpenTextFile(Datei, 1)  >> %temp%\delsub.vbs
  31. REM echo Text = f.ReadAll  >> %temp%\delsub.vbs
  32. REM Set f = MyFiles.OpenTextFile(Datei, 2, True)  >> %temp%\delsub.vbs
  33. REM f.Write Replace(Text, "E:\", "DELTREE /y " & chr(34) & "F:\",1,-1,1) >> %temp%\delsub.vbs
  34. REM f.close >> %temp%\delsub.vbs
  35.  
  36. :Loop
  37. command /c dir /s /b %1 >> c:\temp.bat
  38. shift
  39. if not (%1)==() goto loop
  40.  
  41. cscript %temp%\delsub.vbs
  42. call c:\temp.bat
  43. goto Ende
  44.  
  45. :Warnung
  46. echo Musite zadat nejmene jednu masku docasnych souboru.
  47. echo Priklad: delsub c:\*.tmp d:\*.tmp
  48.  
  49. :Ende
  50. del %temp%\delsub.vbs > nul
  51.  
  52.  
  53.